[Tut]Questy Na Server +Dodanie

Durand · 4 Maja 2011

O tuż Nie widziałem takiego tematu więc postanowiłem go napisać Temat bandzie aktualizowany Możesz się tu podzielić swoimi questami

Żeby pytań nie było dodam od razu jak je dodać bAMBUSEK NAPISAŁ Przenies Lub

 http://www.mpcforum.pl/topic/163124-tutwgrywanie-questow-na-serwer/

1 Quest to Info o zabiciu BOSSa

quest boss_1 begin
   state start begin
       when 2206.kill begin
           notice_all(pc.get_name().." zabił Ognistego Króla!")
       end
       when 2291.kill begin
           notice_all(pc.get_name().." zabił Czerwonego Smoka!")
       end
       when 2307.kill begin
           notice_all(pc.get_name().." zabił Wladce Duchow Drzew!")
       end
       when 2307.kill begin
           notice_all(pc.get_name().." zabił Olbrzymiego Zolwia!")
       end
       when 2191.kill begin
           notice_all(pc.get_name().." zabił Władce Duchów Drzew!")
       end
       when 2091.kill begin
           notice_all(pc.get_name().." zabił Krola Pajakow!")
       end
       when 1403.kill begin
           notice_all(pc.get_name().." zabił Tysiecznego Wojownika!")
       end
       when 1095.kill begin
           notice_all(pc.get_name().." zabił Niebieska Smierc!")
       end
       when 1092.kill begin
           notice_all(pc.get_name().." zabił Elit. Krola Demonow!")
       end
       when 531.kill begin
           notice_all(pc.get_name().." zabił Best. Zolnierza!")
       end
       when 532.kill begin
           notice_all(pc.get_name().." zabił Best. Maniaka!")
       end
       when 533.kill begin
           notice_all(pc.get_name().." zabił Best. Lucznika!")
       end
       when 534.kill begin
           notice_all(pc.get_name().." zabił Best. Specjaliste!")
       end
       when 591.kill begin
           notice_all(pc.get_name().." zabił Best. Kapitana!")
       end
       when 191.kill begin
           notice_all(pc.get_name().." zabił Lykosa!")
       end
       when 192.kill begin
           notice_all(pc.get_name().." zabił Scrofe!")
       end
       when 193.kill begin
           notice_all(pc.get_name().." zabił Bere!")
       end
       when 194.kill begin
           notice_all(pc.get_name().." zabił Tigrisa!")
       end
       when 1304.kill begin
           notice_all(pc.get_name().." zabił Zjawę Żółtego Tygrysa!")
       end
       when 691.kill begin
           notice_all(pc.get_name().." zabił Wodza Orków!")
       end
       when 1901.kill begin
           notice_all(pc.get_name().." zabił Dziewięć Ogonów!")
       end
       when 993.kill begin
           notice_all(pc.get_name().." zabił Olbrzymiego Nosiciel Plagi!")
       end
       when 2091.kill begin
           notice_all(pc.get_name().." zabił Królową Pająków!")
       end
       when 2191.kill begin
           notice_all(pc.get_name().." zabił Olbrzymiego Żółwia!")
       end
       when 1093.kill begin
           notice_all(pc.get_name().." zabił Uwarłego Rozpruwacza!")
       end
       when 793.kill begin
           notice_all(pc.get_name().." zabił Elit. Ezot. Przywoływacza!")
       end
   end
end

LINK

http://www.przeklej.pl/plik/bossy-quest-0029jh4vt40i

2. Questy Biologa od 30 do 80 level-a PACZKA BO JEST ICH KILKA

LINK

http://www.przeklej.pl/plik/biolog-rar-0029jh5mc03p

3.Grota wygnańców na Krwisty kamień Koe pung ID 20093 Mów żeby zdobyć krwisty(ID 30190) trzeba Zabic Smoka Id 2291 (Mogę to zmienić)

quest grotka begin
       state start begin
               when login or levelup with pc.level >= 75 begin
                       set_state(grotka)
               end
       end

       state grotka begin
               when letter begin
                       local v = find_npc_by_vnum(20093)
                       if v != 0 then
                               target.vid("__TARGET__", v, "Koe-Pung")
                       end
                       send_letter("Idź do Koe-Pung")
               end

               when button or info begin
                       say_title("Udaj się do Koe-Pung")
                       say("Musisz udać się do Koe-Pung,")
                       say("Ma ci on coś do powiedzenia.")
                       say("Jakaś Grota Wygnańców.")
                       say_reward("Ruszaj!") 
               end

               when __TARGET__.target.click or 
                       20093.chat."Grota Wygnancow" begin
                       target.delete("__TARGET__")
                               say_title("Hmm, to ty jestes tym nowym Wojownikiem?")
                               say("Aby dowiedziec się co to Grota, musisz sam to przezyc.")
                               say("Ale żeby tam wejść musisz zabić potwora.")
                               say("Posiada on Kamień...")
                               set_state(gleba2)
               end
       end

       state gleba2 begin
               when letter begin
                       send_letter("Zabij Smoka")
               end

               when button or info begin
                       say_title("Zabij Smoka")
                       say("Musisz go pokonać")
                       say("żeby zdobyć od niego")
                       say("Legendarny Kamień")
                               end

               when 2291.kill with pc.countitem(30190)==0 begin
                       local random = math.random(1)
                       if random == 1 then
                       pc.give_item2(30190, 1)
                       say("Udało ci się")
                       say("Zabiłeś tą bestię i otrzymałeś Kamień!")  
                       local v = find_npc_by_vnum(20093)
                       if v != 0 then
                               target.vid("__TARGET__", v, "Koe-Pung")
                       end
                       end
                               end

               when 20093.chat."Grota Wygnańców" with pc.countitem(30190)>0 begin
                       say_title("Koe-Pung:")                                                
                                                       target.delete("__TARGET__")
                               say("Udało się")
                               say("Możesz teraz wejść do Groty")
                               say_reward("Powodzenia!")
                               set_state(__COMPLETE__)
               end
       end
       state __COMPLETE__  begin
       end
end

Down

http://www.przeklej.pl/plik/grota-quest-0029jh6gibq4

4.Quest na Zbroję Hwang Od 91 lvl KOWAL

quest zloty begin
       state start begin
               when login or levelup with pc.level == 91 begin
                       set_state(zlo1)
               end
       end

       state zlo1 begin
               when letter begin
                       local v = find_npc_by_vnum(20016)
                       if v != 0 then
                               target.vid("__TARGET__", v, "Zloto")
                       end
                       send_letter("Tajemnicza zbroja")
               end

               when button or info begin
say("Kowal pracuje nad nowa bronia!")
say("Moze przeszedlbys sie i zaoferowal swoja pomoc?")
               end

               when __TARGET__.target.click or
                       20016.chat."Zbroja" begin
                       target.delete("__TARGET__")
                       say_title("Kowal:")
say("Witaj! Ahh dawno Cie nie widzialem")
say("Mam dla ciebie bardzo wazna misje!")
say("Lodowy Smok Z Tajemniczej Groty ukradl mi")
say("plany mojej nowej zbroi! Pomoz mi!")
say("Nie bedzie latwo!")
say("Musisz zabic smoka z Atlantydy!")
                       local s=select("Spoko", "Sam se zabijj")
                       if 1==s then
                               say_title("Kowal:")
                               say("")
                               say("Swietnie!")
                               say("Czekam na zbroje!")
                               set_state(zlo2)
                       elseif 2==s then
                               say_title("Kowal:")
                               say("")
                               say("NIE POKAZUJ MI SIE TU WIECEJ!")
                               say("TCHORZ!")
                       end
               end
               end
               state zlo2 begin
               when letter begin
                       send_letter("Zbroja dla Straznika")
               end
               when button or info begin
say("Zabij Lodowego Smoka I Zabierz Mu Zbroje Hwang!")  
say("Lodowy Smok Znajduje Sie W Tajemniczej Grocie!")
set_state(zlo3)
               end
               end

       state zlo3 begin
               when 2493.kill with pc.countitem(50903)==0 begin
                       pc.give_item2(30205, 1)
                       say_reward("Odnalazles rysunki!")
say("Udaj sie szybko do Kowala aby otrzymac nagrode!")
                       local v = find_npc_by_vnum(20016)
                       if v != 0 then
                               target.vid("__TARGET__", v, "kowal")
                       end
               end
               when 20023.chat."Jestem jak zloto!" with pc.countitem(50903)>0 begin
                       target.delete("__TARGET__")
                       say_title("Kowal:")
                       say("Nie masz planu? Co za pech!")
                       say("Co? Jednak masz? Swietnie! Czeka cie nagroda")
                       say_reward("Trzask mlotkiem!")
                       say("Prosze! O to nowa zbroja!")
                       pc.changegold(1000000)
                       pc.give_exp(2000000)
                       if pc . job == 0 then
                       pc.give_item2(11971)
                       elseif pc . job == 1 then
                       pc.give_item2(11972)
                       elseif pc . job == 2 then
                       pc.give_item2(11973)
                       elseif pc . job == 3 then
                       pc.give_item2(11974)
                       set_state(ending)

               end
               end
       end
state ending begin
end
end

Down

http://www.przeklej.pl/plik/hwang-quest-0029jh6vpbq4

5.Quest że za kasę u stajennego dostaniemy lvl konia

quest kucyk begin
       state start begin
                   when 20359.chat."Chce kucyka!" begin
                       say("Wybierz lvl kucyka!")
                       local s=select("11 koszt 5kk" , "21 koszt 10kk" , "30 koszt 20kk" , "Anuluj")
                       if s==1 then
                       pc.changegold(-5000000)
                       horse.set_level(11)
                       pc.give_item2("50052")
                       elseif s==2 then
                       pc.changegold(-10000000)
                       horse.set_level(21)
                       pc.give_item2("50053")
                       elseif s==3 then
                       pc.changegold(-20000000)
                       horse.set_level(30)
                       pc.give_item2("50053")
                       end
               end
      end
end

Down

http://www.przeklej.pl/plik/kucyk-quest-0029jh7ij40i

6.Quest na Musisz zabić: 20 Metinów To-Young

quest zniszcz_wszystkie_metiny begin
       state start begin
                       when login or levelup with pc.get_level() >= 75 begin
                                       set_state(pierwszy)
                               end
               end

               state pierwszy begin
                       when letter begin
                                       send_letter("Zabij Metiny")
                               end

                               when button or info begin
                                       say_title("Zabij Metiny")
                                               --
                                               --
                                               say("Musisz zabić:")
                                               say("20 Metinów To-Young")
                               end

                               when 8026.kill begin
                                       local count = pc.setqf("ilosc")+20

                                               if count < 20 then
                                               pc.getqf("ilosc", count)

                                               if count == 20 then
                                               say("Zabiłeś 20 Metinów")
                                               say("To-Young.")
                                               say_reward("Otzymałeś 200.000.000 Yang.")
                                               say_reward("Otrzymałeś rangę: Rycerski.")
                                               set_state(__complete__)
                                               pc.change_money(200000000)
                                               pc.change_alignment(400000)
                                               end
                                               end
                               end
               end
               state __complete__ begin
               end
end

Down

http://www.przeklej.pl/plik/metiny-quest-0029jh8rk7tb

7.Drop Ucha Tanaka

quest tanakaear begin
state start begin
	when 2101.kill with game.get_event_flag("tanakaear")>0 begin
		local random = math.random(55)
			if random == 1 then
			pc.give_item2(30202, 1)
			chat("Oddaj ucho Handlarzowi Zbroja, aby dostac nagrode!")
			elseif random == 2 then
			game.drop_item(50011, 1)
			elseif random == 3 then
			game.drop_item(50033, 1)
			elseif random == 4 then
			game.drop_item(25040, 1)
			elseif random == 5 then
			game.drop_item(50300, 1)
		end
	end
end
end

Down

http://www.przeklej.pl/plik/tanakadrop-quest-0029jhar0bq4

8.Quest na Zabicie lodowej wiedzmy Drop Stalki

quest wiedzma begin
state start begin
when 1192.kill with pc.getqf("lodowa") == 0 begin
pc.setqf("lodowa", 1)
chat("Zabiłeś Pierwszy Raz Wiedźmę!")
chat("Otrzymujesz nagrodę!")

if pc.job == 0 then
pc.give_item2(11290, 1)
elseif pc.job == 1 then
pc.give_item2(11490, 1)
elseif pc.job == 2 then
pc.give_item2(11690, 1)
elseif pc.job == 3 then
pc.give_item2(11890, 1)
end
end
end
end

Down

http://www.przeklej.pl/plik/wiedzma-quest-0029jhb306jo

9.Quest o Info o LVL UP od 60

quest poziom begin
       state start begin
               when levelup with pc.get_level()>=60 begin
               local przed = pc.get_level()-1
               local teraz = pc.get_level()
               notice_all(pc.get_name().." awansowal z poziomu "..przed.." na poziom "..teraz.." . Gratulujemy!")
               end
       end
end

Down

http://www.przeklej.pl/plik/lvlup-quest-0029k49d71dc

10. Info że ktoś wbił do gry

quest playerlogin begin
       state start begin
               when login begin
                       notice_all("Gracz "..pc.get_name().." wlasnie wszedl na serwer!")
               end
       end
end

Down

http://www.przeklej.pl/plik/login-quest-0029k4aip6jo

11. Quest na zalogowanie i wylogowanie się do gry

quest logoff begin
state start begin
when login begin
notice_all("Grac z".. pc.get_name() .." zalogowal sie do gry!")
end
when logout begin
notice_all("Gracz ".. pc.get_name() .. "wylogowal sie!")
end
end
end

Down

http://www.przeklej.pl/plik/zaloguj-quest-0029kbc2n96u

Questy Działają na 100% Sam testowałem Zapraszam do Wypowiadania się I pisania propozycji

A i jak ściągamy kasujemy w nazwy quetu mamy tak

hwang_www.przeklej.pl.quest

Zmieniamy na hwang.quest

Nie Zalałem takiego samego tematu

Licze na +

hunterola · 4 Maja 2011

bardzo fajne questy wgrałem prawie wszystkie:)

h3m!k · 4 Maja 2011

Questy fajne na leksyce znajdą się

dzięki + masz

6st · 4 Maja 2011

Żeby pytań nie było dodam od razu jak je dodać Napisałem tuta zaraz dam link Przenies Lub
http://www.mpcforum.pl/topic/163124-tutwgrywanie-questow-na-serwer/

Nie ty napisałeś "tut'a" tylko Bambus3k

mikewca1188 · 4 Maja 2011

przydatne + zostawiam;) napewno czesc wykorzystam;)

outto · 4 Maja 2011

Weź to do kupy złoż a nie po 15 linkow dajesz . Daj jeden link (folderek) a w nim wszystkie questy

Questy looz .

Durand · 5 Maja 2011

@ref

wqewqewq · 7 Maja 2011

wielkie dzieki

B3D3k · 8 Maja 2011

Biolog z czasem? Ktoś testował , all działają ??

ghvbhgvbhxvbchs · 9 Maja 2011

dzieki

Filip™ · 11 Maja 2011

yy, w quescie kup kucyka każdy może go kupić, czy ma yang czy nie ma potem to poprawię

shadgahjsgdhj · 22 Maja 2011

Dzięki koleś

shadgahjsgdhj · 26 Maja 2011

nie aktualizuje Bo Id konta zapomniałem

knєcik · 16 Sierpnia 2011

moge poprosić tu admmina jakie mam Id do tego konta

DraVee · 16 Sierpnia 2011

Fajny odkop =)

Raport.

MrPiotrek122 · 16 Sierpnia 2011

moge poprosić tu admmina jakie mam Id do tego konta

patrzysz na daty? ; o

@up

upomnienie , nie piszemy takich postow , nastepne skoncza sie warnami.

Zaloguj się

👋 Witaj na MPCForum!

[Tut]Questy Na Server +Dodanie

Rekomendowane odpowiedzi

Durand

Durand

hunterola

hunterola

h3m!k

h3m!k

6st

6st

mikewca1188

mikewca1188

outto

outto

Durand

Durand

wqewqewq

wqewqewq

B3D3k

B3D3k

ghvbhgvbhxvbchs

ghvbhgvbhxvbchs

Filip™

Filip™

shadgahjsgdhj

shadgahjsgdhj

shadgahjsgdhj

shadgahjsgdhj

knєcik

knєcik

DraVee

DraVee

MrPiotrek122

MrPiotrek122

Zarchiwizowany